home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Photobook.dir / 00013.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  970 b   |  44 lines
  1. on mouseEnter
  2.   cursor([cast "curs", cast "mask"])
  3.   puppetSprite(the currentSpriteNum, 1)
  4.   set the blend of sprite the currentSpriteNum to 50
  5. end
  6.  
  7. on mouseLeave
  8.   cursor(-1)
  9.   set the blend of sprite the currentSpriteNum to 100
  10. end
  11.  
  12. on mouseUp
  13.   global fotoActual, modo
  14.   cursor(-1)
  15.   set the blend of sprite the currentSpriteNum to 100
  16.   case the clickOn of
  17.     3:
  18.       set modo to "manual"
  19.       if the type of cast (fotoActual + 1) of castLib "fotos" = #empty then
  20.         set fotoActual to 1
  21.       else
  22.         set fotoActual to fotoActual + 1
  23.       end if
  24.     4:
  25.       set modo to "manual"
  26.       if fotoActual = 1 then
  27.         set fotoActual to the number of castMembers of castLib "fotos"
  28.       else
  29.         set fotoActual to fotoActual - 1
  30.       end if
  31.     5:
  32.       set modo to "manual"
  33.       set fotoActual to 1
  34.     6:
  35.       set modo to "auto"
  36.     7:
  37.       go(1, "video")
  38.       puppetSound(0)
  39.     9:
  40.       go(1, "success")
  41.       puppetSound(0)
  42.   end case
  43. end
  44.